      SUBROUTINE H1 (IVISCS,IATTDE,IWHEEL,IMGMTS)
C
C        'H1' SETS UP OUTPUT HEADING DESCRIBING TYPE OF RUN
C
      IMPLICIT REAL*8 (A-H,O-Z)
C
C
      COMMON /HEAD22/ HEAD1(5),HEAD2(5),ILINE
C
      DIMENSION HED1(5),HED2(5),HED3(5),HED4(5)
C
      DATA HED1 /'RUN EXER','CISING N','UTATION ','VISCOUS ','DAMPING '/
      DATA HED2 /'RUN EXER','CISING A','TTITUDE ','CONTROL ','        '/
      DATA HED3 /'RUN EXER','CISING M','OMENTUM ','WHEELS  ','        '/
      DATA HED4 /'RUN EXER','CISING M','AGNETIC ','MOMENTS ','        '/
C
      JUMP=0
      IF(IVISCS.NE.0) JUMP=1
      IF(IATTDE.NE.0) JUMP=2
      IF(IWHEEL.NE.0) JUMP=3
      IF(IMGMTS.NE.0) JUMP=4
C
      IF(JUMP.EQ.0) RETURN
      GO TO (10,30,50,70),JUMP
C
   10 DO 20 I=1,5
   20 HEAD1(I)=HED1(I)
      RETURN
C
   30 DO 40 I=1,5
   40 HEAD1(I)=HED2(I)
      RETURN
C
   50 DO 60 I=1,5
   60 HEAD1(I)=HED3(I)
      RETURN
C
   70 DO 80 I=1,5
   80 HEAD1(I)=HED4(I)
      RETURN
      END
